home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Spezial (19xx)(-)(de)[gt525c].d64 / seq.file reader (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  56 lines
  1. 2 REM:PRINTER SETTINGS ARE IN LINES 202       AND 203 IF THEY NEED ALTERATION.
  2. 5 POKE53280,0:POKE53281,0:POKE646,7:FL=0:PRINTCHR$(14)
  3. 6 PRINT"[147][211][201][205][208][204][197][160][211][197][209][213][197][206][212][201][193][204][160][198][201][204][197][160][210][197][193][196][197][210]":PRINT
  4. 7 GOTO60
  5. 8 IFFF=0THENPRINT"[206][207][160][211][197][209][213][197][206][212][201][193][204][160][198][201][204][197][211][160][207][206][160][212][200][201][211][160][196][201][211][203]":END
  6. 9 PRINT"[208]LACE CURSOR [194][197][211][201][196][197][146][158] NAME OF FILE TO "
  7. 10 PRINT"READ THEN TYPE [210][197][212][213][210][206]":PRINT:INPUTF$
  8. 11 INPUT"[147]OUTPUT TO S[146]CREEN OR P[146]RINTER";O$
  9. 12 PRINT"[147]"
  10. 15 IFO$="P"THEN200
  11. 20 OPEN4,8,4,F$+",S,R":W=1:D=1:GOSUB100
  12. 22 GET#4,A$:IFA$=""THENA$=CHR$(0)
  13. 23 TS=ST:IFFL=0ANDA$=CHR$(13)THEND=D+1:W=1:FL=1:GOTO26
  14. 24 IFFL=1ANDA$=CHR$(13)THENA$="":GOTO22
  15. 25 IFFL=1ANDA$<>CHR$(13)THENFL=0
  16. 26 PRINTA$;
  17. 27 W=W+1:IFA$=CHR$(32)ANDW>32THENPRINTCHR$(13);:W=1:D=D+1
  18. 28 IFD>20THENGOSUB50
  19. 30 IFTS=0THEN22
  20. 35 CLOSE4:CLOSE15:END
  21. 50 PRINT"[212][217][208][197][160][193][206][217][160][203][197][217][160][212][207][160][195][207][206][212][201][206][213][197]"
  22. 52 POKE198,0:WAIT198,1:D=1:RETURN
  23. 60 PRINT"SEQUENTIAL FILES ON THIS DISK ARE:":PRINT
  24. 62 OPEN1,8,0,"$0:*=S":C=0:FF=0
  25. 64 FORK=1TO31:GET#1,A$:NEXT
  26. 66 IFC=8THENC=0:GOSUB300:IFBY=KTHENCLOSE1:GOTO11
  27. 67 N$="":GET#1,A$:IFST>0THENCLOSE1:GOTO8
  28. 68 IFA$=""THENA$=CHR$(0):IFFF<2THEN67
  29. 69 IFA$<>CHR$(34)THEN67
  30. 70 GET#1,A$:IFST>0THENCLOSE1:GOTO9
  31. 72 IFA$<>CHR$(34)THENN$=N$+A$:GOTO70
  32. 77 PRINTN$:FF=2:C=C+1:BY=26:FORK=1TOBY:GOTO66
  33. 78 NEXT
  34. 100 OPEN15,8,15:INPUT#15,A,B$,C,D:IFA>20THENPRINTA,B$,C,D:CLOSE4:CLOSE15:END
  35. 102 RETURN
  36. 200 OPEN4,8,4,F$+",S,R":GOSUB100
  37. 202 OPEN2,4,7:CLOSE2:IFST<>0THEN PRINT"[147][208][210][201][206][212][197][210][160][206][207][212] [207][206]":GOSUB50:GOTO202
  38. 203 OPEN2,4,7:D=1:B$=""
  39. 205 PRINT"[147][145][145][208][210][201][206][212][197][210][160][200][193][211][160][212][207][160][212][200][201][206][203].  [208][193][212][201][197][206][195][197]!!"
  40. 210 GET#4,A$:IFA$=""THENA$=CHR$(0)
  41. 220 TS=ST:IFFL=0ANDA$=CHR$(13)THENFL=1:D=D+1:GOTO235
  42. 225 IFFL=1ANDA$=CHR$(13)THENA$="":GOTO210
  43. 230 IFFL=1ANDA$<>CHR$(13)THENFL=0
  44. 235 B$=B$+A$
  45. 240 IFA$=CHR$(32)ANDLEN(B$)>65THENPRINT#2,B$;:PRINT#2,CHR$(13);:D=D+1:B$="":GOTO250
  46. 242 IFA$=CHR$(13)THENPRINT#2,B$:D=D+1:B$=""
  47. 245 IFD>50THENPRINT"[147]":GOSUB50:D=1:PRINT"[147]"
  48. 250 IFTS=0THEN210
  49. 255 CLOSE4:CLOSE2:CLOSE15
  50. 260 PRINT"[193][204][204] [196][207][206][197]":END
  51. 300 PRINT"[208]LACE CURSOR [194][197][211][201][196][197][146][158] NAME OF FILE TO "
  52. 302 PRINT"READ THEN TYPE [210][197][212][213][210][206] OR
  53. 304 [153]"TYPE LENWAIT TO READ MORE FILES":[133]F$
  54. 306 [139]F$[178][199](67)[167][142]
  55. 308 [139]F$[179][177][199](67)[167]BY[178]K:[142]
  56.